From 9717568f8f3009487342a76ad7ccf55f1434f986 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 2 Mar 2009 21:03:21 +0000 Subject: [PATCH] (Fcall_process): Bind inhibit-modification-hooks to t when decoding process output. --- src/callproc.c | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/callproc.c b/src/callproc.c index 316740391ed..d55fe695e76 100644 --- a/src/callproc.c +++ b/src/callproc.c @@ -732,10 +732,18 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS) */) else { /* We have to decode the input. */ Lisp_Object curbuf; + int count1 = SPECPDL_INDEX (); XSETBUFFER (curbuf, current_buffer); + /* We cannot allow after-change-functions be run + during decoding, because that might modify the + buffer, while we rely on process_coding.produced to + faithfully reflect inserted text until we + TEMP_SET_PT_BOTH below. */ + specbind (Qinhibit_modification_hooks, Qt); decode_coding_c_string (&process_coding, buf, nread, curbuf); + unbind_to (count1, Qnil); if (display_on_the_fly && CODING_REQUIRE_DETECTION (&saved_coding) && ! CODING_REQUIRE_DETECTION (&process_coding)) -- 2.30.2